home *** CD-ROM | disk | FTP | other *** search
/ ASP Advantage 1993 / The Association of Shareware Professionals Advantage CD-ROM 1993.iso / files / windions / wb_40l / winbatch / mcitest.wb_ < prev    next >
Text File  |  1992-02-27  |  210b  |  12 lines
  1. last="???"
  2. ErrorMode(@NOTIFY)
  3. :loop
  4.  
  5. last=AskLine("MCI Command",last,last)
  6. LastError()
  7. b=playMedia(last)
  8. if LastError()!=0 then goto loop
  9. if b=="" then goto loop
  10. Display(3,"MCI Results",b)
  11. goto loop
  12.